object TeknikServisDusumEkraniF: TTeknikServisDusumEkraniF
  Left = 193
  Top = 118
  Width = 415
  Height = 532
  Caption = 'Teknik Servis D'#252#351#252'm Ekran'#305
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object formnol: TLabel
    Left = 12
    Top = 64
    Width = 40
    Height = 14
    Caption = 'Form No'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 290
    Top = 440
    Width = 39
    Height = 14
    Caption = 'Toplam :'
  end
  object Label38: TLabel
    Left = 11
    Top = 16
    Width = 47
    Height = 14
    Caption = 'Tes. Eden'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label22: TLabel
    Left = 11
    Top = 40
    Width = 44
    Height = 14
    Caption = 'Teslim Al.'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Formnok: TEdit
    Left = 68
    Top = 57
    Width = 97
    Height = 22
    TabOrder = 2
    OnKeyPress = FormnokKeyPress
  end
  object Panel1: TPanel
    Left = 0
    Top = 469
    Width = 407
    Height = 36
    Align = alBottom
    TabOrder = 3
    DesignSize = (
      407
      36)
    object bkapat: TBitBtn
      Left = 325
      Top = 6
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Kapat'
      TabOrder = 0
      OnClick = bkapatClick
    end
    object bfisolustur: TBitBtn
      Left = 8
      Top = 6
      Width = 177
      Height = 25
      Caption = #199#305'k'#305#351'lar'#305' ve Malzeme Fi'#351'ini Olu'#351'tur'
      TabOrder = 1
      OnClick = bfisolusturClick
    end
  end
  object wwDBGrid1: TwwDBGrid
    Left = 10
    Top = 88
    Width = 390
    Height = 337
    DisableThemes = False
    Selected.Strings = (
      'formno'#9'10'#9'Form No'#9'F'
      'stokkodu'#9'22'#9'Stok Kodu'#9'F'
      'teslimeden'#9'25'#9'Teslim Eden'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = GeciciQS
    TabOrder = 4
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
  end
  object bcikart: TBitBtn
    Left = 8
    Top = 432
    Width = 75
    Height = 25
    Caption = #199#305'kart'
    TabOrder = 5
    OnClick = bcikartClick
  end
  object Toplamk: TStaticText
    Left = 339
    Top = 436
    Width = 58
    Height = 18
    AutoSize = False
    BorderStyle = sbsSunken
    Caption = ' 0'
    TabOrder = 6
  end
  object teslimalank: TwwDBEdit
    Left = 68
    Top = 33
    Width = 152
    Height = 22
    Color = clWhite
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object teslimedenk: TwwDBLookupCombo
    Left = 68
    Top = 9
    Width = 153
    Height = 22
    Font.Charset = TURKISH_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    DisableThemes = False
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'pismi'#9'25'#9'pismi'#9'F'
      'pkodu'#9'5'#9'pkodu'#9'F')
    LookupTable = dm.sppersonel
    LookupField = 'perkod'
    Options = [loColLines, loTitles]
    Style = csDropDownList
    Color = clWhite
    Navigator = False
    ParentFont = False
    TabOrder = 0
    AutoDropDown = True
    ShowButton = True
    UseTFields = False
    AllowClearKey = True
    ShowMatchText = True
  end
  object GeciciQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'Create Table #Gecici (formno int,stokkod int,stokkodu varchar(25' +
        '),cinsi varchar(50),teslimedenid int,teslimeden varchar(50))'
      ''
      'Select * from #gecici'
      ''
      'drop table #gecici')
    Left = 264
    Top = 8
  end
  object GeciciQS: TDataSource
    DataSet = GeciciQ
    Left = 232
    Top = 8
  end
  object TeknikQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'formno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select carikodgir,durumu,teknik.formno as formno,onarim.stokkod ' +
        'as stokkod,onarim.ystokkod as ystokkod from teknik,onarim '
      'where teknik.formno=:formno and teknik.formno=onarim.formno')
    Left = 304
    Top = 8
  end
  object TeknikUpdateQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'teslimeden'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'teslimalan'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 25
        Value = Null
      end
      item
        Name = 'teslimtarihi'
        Attributes = [paNullable]
        DataType = ftDateTime
        Precision = 16
        Size = 16
        Value = Null
      end
      item
        Name = 'formno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update teknik '
      
        'set durumu='#39'G'#39',teslimeden=:teslimeden,cteslimalan=:teslimalan,te' +
        'slimtarihi=:teslimtarihi'
      'where formno=:formno')
    Left = 344
    Top = 8
  end
  object StokFisiQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 344
    Top = 40
  end
  object StokFisiHarQ: TADOQuery
    Connection = dm.connect
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 376
    Top = 8
  end
  object StokBulQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 304
    Top = 40
  end
  object StokUpdateQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    Left = 376
    Top = 40
  end
end
